home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / EC2.PRG < prev    next >
Encoding:
Text File  |  1985-09-01  |  542 b   |  35 lines
  1. CLEA
  2. mname=space(06)
  3. SELE CURRENT
  4. doname=.t.
  5. DO WHIL DONAME
  6. CLEA
  7. @01,00 say '                         EDIT FILES'
  8. @05,03 SAY 'enter client number ' get mname PICT '!!!!!!'
  9. @06,03 say 'or (cr) to exit'
  10. READ
  11. CLEA gets
  12. mname=trim(mname)
  13. IF len(mname)=0
  14. doname=.f.
  15. EXIT
  16. ENDI
  17. FIND &mname
  18. IF eof()
  19. @15,23 say CHR(7)+'no client with that number - try again'
  20. xx=1
  21. DO WHIL XX<35
  22. xx=xx+1
  23. ENDD
  24. mname=space(6)
  25. LOOP
  26. ENDI
  27. SET FORM TO E1
  28. READ
  29. SET FORM TO
  30. mname=space(06)
  31. ENDD
  32. SET INDE to currname,currnmbr
  33. curr='013'
  34. RETU
  35.